home *** CD-ROM | disk | FTP | other *** search
/ AMIGA-CD 2 / Amiga-CD - Volume 2.iso / ungepackte_daten / 1994 / 6 / 01 / mini-compiler / demo / aufz.m next >
Encoding:
Text File  |  1995-06-01  |  329 b   |  19 lines
  1. Program Aufz;
  2. Type Farbe = (Rot,Gruen,Lila,Braun,Blau);
  3.  
  4. Var Color : Farbe;
  5.  
  6. Begin
  7.  For Color := Blau DownTO Rot DO
  8.   Begin
  9.    Writeln(Ord(Color));
  10.    Case Color Of
  11.     Rot   : Writeln('Rot');
  12.     Gruen : Writeln('Gruen');
  13.     Lila  : Writeln('Lila');
  14.     Braun : Writeln('Braun');
  15.     Blau  : Writeln('Blau');
  16.    End
  17.   End
  18. End.
  19.